home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
prgtools
/
apm1612c.zip
/
APM3.FRM
< prev
next >
Wrap
Text File
|
1996-08-25
|
43KB
|
1,365 lines
VERSION 4.00
Begin VB.Form apm3
Caption = "apm3"
ClientHeight = 6495
ClientLeft = 2130
ClientTop = 3150
ClientWidth = 7800
Height = 6900
Left = 2070
LinkTopic = "Form3"
ScaleHeight = 6495
ScaleWidth = 7800
Top = 2805
Width = 7920
Begin VB.OptionButton apm3RevUpdate
Caption = "Option4"
Height = 255
Left = 6360
TabIndex = 110
TabStop = 0 'False
Top = 840
Width = 255
End
Begin VB.OptionButton apm3RevDelete
Caption = "Option3"
Height = 255
Left = 7440
TabIndex = 105
TabStop = 0 'False
Top = 840
Width = 255
End
Begin VB.OptionButton apm3RevMaint
Caption = "Option2"
Height = 255
Left = 5280
TabIndex = 104
TabStop = 0 'False
Top = 840
Width = 255
End
Begin VB.OptionButton apm3RevAdd
Caption = "Option1"
Height = 255
Left = 4080
TabIndex = 103
TabStop = 0 'False
Top = 840
Width = 255
End
Begin VB.CommandButton cmdGetProgram
Caption = "Get Program"
Height = 375
Left = 120
TabIndex = 93
TabStop = 0 'False
Top = 6120
Width = 1815
End
Begin VB.ComboBox apm3Prog
Height = 315
Left = 720
TabIndex = 1
Top = 840
Width = 1455
End
Begin VB.CommandButton cmdDiscardExit
Caption = "Discard Edits and Exit"
Height = 375
Left = 2040
TabIndex = 76
TabStop = 0 'False
Top = 6120
Width = 1815
End
Begin VB.CommandButton cmdDiscard
Caption = "Discard Edits"
Height = 375
Left = 3960
TabIndex = 75
TabStop = 0 'False
Top = 6120
Width = 1815
End
Begin VB.TextBox apm3PRevReason
Height = 285
Left = 3600
MaxLength = 20
TabIndex = 3
Top = 1320
Width = 4215
End
Begin VB.TextBox apm3PRevDate
Height = 285
Left = 3600
MaxLength = 10
TabIndex = 2
Top = 1080
Width = 975
End
Begin VB.CommandButton cmdProgUpdate
Caption = "Update"
Height = 375
Left = 5880
TabIndex = 55
TabStop = 0 'False
Top = 6120
Width = 1815
End
Begin VB.TextBox apm3AuthName
Enabled = 0 'False
Height = 285
Left = 3120
MaxLength = 40
TabIndex = 53
TabStop = 0 'False
Top = 360
Width = 4575
End
Begin VB.TextBox apm3AuthNumber
Enabled = 0 'False
Height = 285
Left = 1440
TabIndex = 0
TabStop = 0 'False
Top = 360
Width = 1095
End
Begin TabDlg.SSTab SSTab1
Height = 4455
Left = 120
TabIndex = 49
Top = 1680
Width = 7575
_Version = 65536
_ExtentX = 13361
_ExtentY = 7858
_StockProps = 15
Caption = "Permissions"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "MS Sans Serif"
charset = 0
weight = 400
size = 9.75
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
TabsPerRow = 5
Tab = 8
TabOrientation = 0
Tabs = 9
Style = 0
TabMaxWidth = 0
TabHeight = 529
TabCaption(0) = "General"
Tab(0).ControlCount= 38
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "apm3PHDReq"
Tab(0).Control(1)= "apm3PEOther"
Tab(0).Control(2)= "apm3PEOS2"
Tab(0).Control(3)= "apm3PEWin95"
Tab(0).Control(4)= "apm3PEWin"
Tab(0).Control(5)= "apm3PEDOS"
Tab(0).Control(6)= "apm3PMedDesc"
Tab(0).Control(7)= "apm3Class4"
Tab(0).Control(8)= "apm3Class3"
Tab(0).Control(9)= "apm3Class2"
Tab(0).Control(10)= "apm3Class1"
Tab(0).Control(11)= "apm3PHDSize"
Tab(0).Control(12)= "apm3PMem"
Tab(0).Control(13)= "apm3PEnvText"
Tab(0).Control(14)= "apm3PCDate"
Tab(0).Control(15)= "apm3PODate"
Tab(0).Control(16)= "apm3PVer"
Tab(0).Control(17)= "apm3PShtDesc"
Tab(0).Control(18)= "Label39"
Tab(0).Control(19)= "Label38"
Tab(0).Control(20)= "Label37"
Tab(0).Control(21)= "Label36"
Tab(0).Control(22)= "Label35"
Tab(0).Control(23)= "Label34"
Tab(0).Control(24)= "Label33"
Tab(0).Control(25)= "Label32"
Tab(0).Control(26)= "Label31"
Tab(0).Control(27)= "Label30"
Tab(0).Control(28)= "Label29"
Tab(0).Control(29)= "Label28"
Tab(0).Control(30)= "Label27"
Tab(0).Control(31)= "Label26"
Tab(0).Control(32)= "Label25"
Tab(0).Control(33)= "Label24"
Tab(0).Control(34)= "Label10"
Tab(0).Control(35)= "Label9"
Tab(0).Control(36)= "Label8"
Tab(0).Control(37)= "Label7"
TabCaption(1) = "Zips/Screen"
Tab(1).ControlCount= 32
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label12"
Tab(1).Control(1)= "Label13"
Tab(1).Control(2)= "Label14"
Tab(1).Control(3)= "Label15"
Tab(1).Control(4)= "Label16"
Tab(1).Control(5)= "Label17"
Tab(1).Control(6)= "Label11"
Tab(1).Control(7)= "Label18"
Tab(1).Control(8)= "Label19"
Tab(1).Control(9)= "Label20"
Tab(1).Control(10)= "Label22"
Tab(1).Control(11)= "Label23"
Tab(1).Control(12)= "apm3PZip1"
Tab(1).Control(13)= "apm3PZip2"
Tab(1).Control(14)= "apm3PZip3"
Tab(1).Control(15)= "apm3PZip4"
Tab(1).Control(16)= "apm3PZip5"
Tab(1).Control(17)= "apm3PZip6"
Tab(1).Control(18)= "apm3PScreen"
Tab(1).Control(19)= "apm3PVend1"
Tab(1).Control(20)= "apm3PVend2"
Tab(1).Control(21)= "apm3PVend3"
Tab(1).Control(22)= "apm3PVend4"
Tab(1).Control(23)= "apm3PVend5"
Tab(1).Control(24)= "apm3PVend6"
Tab(1).Control(25)= "apm3PScreenSize"
Tab(1).Control(26)= "apm3PSize1"
Tab(1).Control(27)= "apm3PSize2"
Tab(1).Control(28)= "apm3PSize3"
Tab(1).Control(29)= "apm3PSize4"
Tab(1).Control(30)= "apm3PSize5"
Tab(1).Control(31)= "apm3PSize6"
TabCaption(2) = "File_id.Diz"
Tab(2).ControlCount= 3
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label21"
Tab(2).Control(1)= "apm3PFileidDiz"
Tab(2).Control(2)= "cmdFIDFmt"
TabCaption(3) = "Long Desc."
Tab(3).ControlCount= 2
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "apm3PLongDesc"
Tab(3).Control(1)= "cmdLDFmt"
TabCaption(4) = "Keywords"
Tab(4).ControlCount= 2
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "apm3PKeywords"
Tab(4).Control(1)= "cmdKWFmt"
TabCaption(5) = "Registration"
Tab(5).ControlCount= 2
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "apm3PRegistration"
Tab(5).Control(1)= "cmdRegFmt"
TabCaption(6) = "Installation"
Tab(6).ControlCount= 2
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "apm3PInstall"
Tab(6).Control(1)= "cmdInsFmt"
TabCaption(7) = "Vendor Insts"
Tab(7).ControlCount= 2
Tab(7).ControlEnabled= 0 'False
Tab(7).Control(0)= "apm3PVInst"
Tab(7).Control(1)= "cmdVIFmt"
TabCaption(8) = "Permissions"
Tab(8).ControlCount= 2
Tab(8).ControlEnabled= -1 'True
Tab(8).Control(0)= "apm3PPermiss"
Tab(8).Control(1)= "cmdPerFmt"
Begin VB.CommandButton cmdPerFmt
Caption = "Format"
Height = 375
Left = 6120
TabIndex = 101
TabStop = 0 'False
Top = 3960
Width = 855
End
Begin VB.CommandButton cmdVIFmt
Caption = "Format"
Height = 375
Left = -68880
TabIndex = 100
TabStop = 0 'False
Top = 3960
Width = 855
End
Begin VB.CommandButton cmdInsFmt
Caption = "Format"
Height = 375
Left = -68880
TabIndex = 99
TabStop = 0 'False
Top = 3960
Width = 855
End
Begin VB.CommandButton cmdRegFmt
Caption = "Format"
Height = 375
Left = -68880
TabIndex = 98
TabStop = 0 'False
Top = 3960
Width = 855
End
Begin VB.CommandButton cmdKWFmt
Caption = "Format"
Height = 375
Left = -68880
TabIndex = 97
TabStop = 0 'False
Top = 3960
Width = 855
End
Begin VB.CommandButton cmdLDFmt
Caption = "Format"
Height = 375
Left = -68880
TabIndex = 96
TabStop = 0 'False
Top = 3960
Width = 855
End
Begin VB.CommandButton cmdFIDFmt
Caption = "Format"
Height = 495
Left = -68760
TabIndex = 95
TabStop = 0 'False
Top = 2880
Width = 975
End
Begin VB.CheckBox apm3PHDReq
Caption = "Check6"
Height = 255
Left = -73200
TabIndex = 16
Top = 4080
Width = 255
End
Begin VB.CheckBox apm3PEOther
Caption = "Check5"
Height = 255
Left = -71640
TabIndex = 14
Top = 3360
Width = 255
End
Begin VB.CheckBox apm3PEOS2
Caption = "Check4"
Height = 255
Left = -72120
TabIndex = 13
Top = 3360
Width = 255
End
Begin VB.CheckBox apm3PEWin95
Caption = "Check3"
Height = 255
Left = -72600
TabIndex = 12
Top = 3360
Width = 255
End
Begin VB.CheckBox apm3PEWin
Caption = "Check2"
Height = 255
Left = -73080
TabIndex = 11
Top = 3360
Width = 255
End
Begin VB.CheckBox apm3PEDOS
Caption = "Check1"
Height = 255
Left = -73560
TabIndex = 10
Top = 3360
Width = 255
End
Begin VB.TextBox apm3PMedDesc
Height = 285
Left = -73200
MaxLength = 40
TabIndex = 5
Top = 1200
Width = 3975
End
Begin VB.ComboBox apm3Class4
Height = 315
Left = -70560
Style = 2 'Dropdown List
TabIndex = 21
Top = 3360
Width = 2775
End
Begin VB.ComboBox apm3Class3
Height = 315
Left = -70560
Style = 2 'Dropdown List
TabIndex = 20
Top = 2880
Width = 2775
End
Begin VB.ComboBox apm3Class2
Height = 315
Left = -70560
Style = 2 'Dropdown List
TabIndex = 19
Top = 2400
Width = 2775
End
Begin VB.ComboBox apm3Class1
Height = 315
ItemData = "apm3.frx":0000
Left = -70560
List = "apm3.frx":0002
Style = 2 'Dropdown List
TabIndex = 18
Top = 1920
Width = 2775
End
Begin VB.TextBox apm3PHDSize
Height = 285
Left = -71880
TabIndex = 17
Top = 4080
Width = 735
End
Begin VB.TextBox apm3PMem
Height = 285
Left = -73200
TabIndex = 15
Top = 3720
Width = 1455
End
Begin VB.TextBox apm3PEnvText
Height = 285
Left = -73200
MaxLength = 15
TabIndex = 9
Top = 2640
Width = 1935
End
Begin VB.TextBox apm3PPermiss
Height = 2895
Left = 360
MaxLength = 5000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 48
Top = 960
Width = 6735
End
Begin VB.TextBox apm3PVInst
Height = 2895
Left = -74640
MaxLength = 5000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 47
Top = 960
Width = 6735
End
Begin VB.TextBox apm3PInstall
Height = 2895
Left = -74640
MaxLength = 5000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 46
Top = 960
Width = 6735
End
Begin VB.TextBox apm3PRegistration
Height = 2895
Left = -74640
MaxLength = 5000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 45
Top = 960
Width = 6735
End
Begin VB.TextBox apm3PKeywords
Height = 2895
Left = -74640
MaxLength = 5000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 44
Top = 960
Width = 6735
End
Begin VB.TextBox apm3PLongDesc
Height = 2895
Left = -74640
MaxLength = 5000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 43
Top = 960
Width = 6735
End
Begin VB.TextBox apm3PFileidDiz
Height = 2655
Left = -74520
MaxLength = 500
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 42
Top = 1320
Width = 5415
End
Begin VB.TextBox apm3PSize6
Height = 285
Left = -71040
MaxLength = 10
TabIndex = 39
Top = 3000
Width = 735
End
Begin VB.TextBox apm3PSize5
Height = 285
Left = -71040
MaxLength = 10
TabIndex = 36
Top = 2640
Width = 735
End
Begin VB.TextBox apm3PSize4
Height = 285
Left = -71040
MaxLength = 10
TabIndex = 33
Top = 2280
Width = 735
End
Begin VB.TextBox apm3PSize3
Height = 285
Left = -71040
MaxLength = 10
TabIndex = 30
Top = 1920
Width = 750
End
Begin VB.TextBox apm3PSize2
Height = 285
Left = -71040
MaxLength = 10
TabIndex = 27
Top = 1560
Width = 735
End
Begin VB.TextBox apm3PSize1
Height = 285
Left = -71040
MaxLength = 10
TabIndex = 24
Top = 1200
Width = 735
End
Begin VB.TextBox apm3PScreenSize
Height = 285
Left = -72000
MaxLength = 10
TabIndex = 41
Top = 3480
Width = 735
End
Begin VB.TextBox apm3PVend6
Height = 285
Left = -72360
MaxLength = 8
TabIndex = 38
Top = 3000
Width = 975
End
Begin VB.TextBox apm3PVend5
Height = 285
Left = -72360
MaxLength = 8
TabIndex = 35
Top = 2640
Width = 975
End
Begin VB.TextBox apm3PVend4
Height = 285
Left = -72360
MaxLength = 8
TabIndex = 32
Top = 2280
Width = 975
End
Begin VB.TextBox apm3PVend3
Height = 285
Left = -72360
MaxLength = 8
TabIndex = 29
Top = 1920
Width = 975
End
Begin VB.TextBox apm3PVend2
Height = 285
Left = -72360
MaxLength = 8
TabIndex = 26
Top = 1560
Width = 975
End
Begin VB.TextBox apm3PVend1
Height = 285
Left = -72360
MaxLength = 8
TabIndex = 23
Top = 1200
Width = 975
End
Begin VB.TextBox apm3PScreen
Height = 285
Left = -73680
MaxLength = 8
TabIndex = 40
Top = 3480
Width = 975
End
Begin VB.TextBox apm3PZip6
Height = 285
Left = -73680
MaxLength = 8
TabIndex = 37
Top = 3000
Width = 975
End
Begin VB.TextBox apm3PZip5
Height = 285
Left = -73680
MaxLength = 8
TabIndex = 34
Top = 2640
Width = 975
End
Begin VB.TextBox apm3PZip4
Height = 285
Left = -73680
MaxLength = 8
TabIndex = 31
Top = 2280
Width = 975
End
Begin VB.TextBox apm3PZip3
Height = 285
Left = -73680
MaxLength = 8
TabIndex = 28
Top = 1920
Width = 975
End
Begin VB.TextBox apm3PZip2
Height = 285
Left = -73680
MaxLength = 8
TabIndex = 25
Top = 1560
Width = 975
End
Begin VB.TextBox apm3PZip1
Height = 285
Left = -73680
MaxLength = 8
TabIndex = 22
Top = 1200
Width = 975
End
Begin VB.TextBox apm3PCDate
Height = 285
Left = -73200
MaxLength = 10
TabIndex = 8
Top = 2280
Width = 1215
End
Begin VB.TextBox apm3PODate
Height = 285
Left = -73200
MaxLength = 10
TabIndex = 7
Top = 1920
Width = 1215
End
Begin VB.TextBox apm3PVer
Height = 285
Left = -73200
MaxLength = 10
TabIndex = 6
Top = 1560
Width = 1575
End
Begin VB.TextBox apm3PShtDesc
Height = 285
Left = -73200
MaxLength = 20
TabIndex = 4
Top = 840
Width = 2535
End
Begin VB.Label Label39
Caption = "Medium Description"
Height = 255
Left = -74760
TabIndex = 92
Top = 1200
Width = 1575
End
Begin VB.Label Label38
Caption = "4"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Left = -70800
TabIndex = 91
Top = 3360
Width = 255
End
Begin VB.Label Label37
Caption = "3"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Left = -70800
TabIndex = 90
Top = 2880
Width = 255
End
Begin VB.Label Label36
Caption = "2"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Left = -70800
TabIndex = 89
Top = 2400
Width = 255
End
Begin VB.Label Label35
Caption = "1"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Left = -70800
TabIndex = 88
Top = 1920
Width = 255
End
Begin VB.Label Label34
Alignment = 2 'Center
Caption = "Classes (Up to 4 allowed)"
Height = 255
Left = -70800
TabIndex = 87
Top = 1680
Width = 3015
End
Begin VB.Label Label33
Caption = "Size (Mb)"
Height = 255
Left = -72720
TabIndex = 86
Top = 4080
Width = 735
End
Begin VB.Label Label32
Caption = "Hard Disk Req."
Height = 255
Left = -74760
TabIndex = 85
Top = 4080
Width = 1335
End
Begin VB.Label Label31
Caption = "Memory Req. (K)"
Height = 255
Left = -74760
TabIndex = 84
Top = 3720
Width = 1455
End
Begin VB.Label Label30
Alignment = 2 'Center
Caption = "Other"
Height = 255
Left = -71760
TabIndex = 83
Top = 3120
Width = 495
End
Begin VB.Label Label29
Alignment = 2 'Center
Caption = "OS2"
Height = 255
Left = -72240
TabIndex = 82
Top = 3120
Width = 495
End
Begin VB.Label Label28
Alignment = 2 'Center
Caption = "Win95"
Height = 255
Left = -72720
TabIndex = 81
Top = 3120
Width = 495
End
Begin VB.Label Label27
Alignment = 2 'Center
Caption = "Win"
Height = 255
Left = -73200
TabIndex = 80
Top = 3120
Width = 495
End
Begin VB.Label Label26
Alignment = 2 'Center
Caption = "DOS"
Height = 255
Left = -73680
TabIndex = 79
Top = 3120
Width = 495
End
Begin VB.Label Label25
Caption = "Environment"
Height = 255
Left = -74760
TabIndex = 78
Top = 3360
Width = 975
End
Begin VB.Label Label24
Caption = "Environment (Text)"
Height = 255
Left = -74760
TabIndex = 77
Top = 2640
Width = 1455
End
Begin VB.Label Label23
Caption = "Note: File names should not include extensions like .zip"
BeginProperty Font
name = "News Gothic MT"
charset = 0
weight = 400
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 1695
Left = -69480
TabIndex = 74
Top = 1440
Width = 1575
End
Begin VB.Label Label22
Alignment = 2 'Center
Caption = "Size(k)"
Height = 255
Left = -71040
TabIndex = 73
Top = 960
Width = 735
End
Begin VB.Label Label21
Alignment = 2 'Center
Caption = "Up to 10 lines of up to 45 characters allowed. 1st line should stand alone as a single line description"
Height = 375
Left = -74160
TabIndex = 72
Top = 840
Width = 4455
End
Begin VB.Label Label20
Alignment = 2 'Center
Caption = "Vendor"
Height = 255
Left = -72360
TabIndex = 71
Top = 960
Width = 975
End
Begin VB.Label Label19
Caption = "Size(k)"
Height = 255
Left = -72600
TabIndex = 70
Top = 3480
Width = 615
End
Begin VB.Label Label18
Alignment = 2 'Center
Caption = "Zips"
Height = 255
Left = -73680
TabIndex = 69
Top = 960
Width = 975
End
Begin VB.Label Label11
Caption = "File 1......."
Height = 255
Left = -74400
TabIndex = 68
Top = 1200
Width = 735
End
Begin VB.Label Label17
Caption = " Screens.."
Height = 255
Left = -74520
TabIndex = 67
Top = 3480
Width = 855
End
Begin VB.Label Label16
Caption = "File 6........"
Height = 255
Left = -74400
TabIndex = 66
Top = 3000
Width = 735
End
Begin VB.Label Label15
Caption = "File 5........"
Height = 255
Left = -74400
TabIndex = 65
Top = 2640
Width = 735
End
Begin VB.Label Label14
Caption = "File 4......."
Height = 255
Left = -74400
TabIndex = 64
Top = 2280
Width = 735
End
Begin VB.Label Label13
Caption = "File 3......."
Height = 255
Left = -74400
TabIndex = 63
Top = 1920
Width = 735
End
Begin VB.Label Label12
Caption = "File 2......."
Height = 255
Left = -74400
TabIndex = 62
Top = 1560
Width = 735
End
Begin VB.Label Label10
Caption = "Cur. Release Date"
Height = 255
Left = -74760
TabIndex = 61
Top = 2280
Width = 1335
End
Begin VB.Label Label9
Caption = "Orig. Release Date"
Height = 255
Left = -74760
TabIndex = 60
Top = 1920
Width = 1815
End
Begin VB.Label Label8
Caption = "Program Version"
Height = 255
Left = -74760
TabIndex = 59
Top = 1560
Width = 1455
End
Begin VB.Label Label7
Caption = "Short Description"
Height = 255
Left = -74760
TabIndex = 58
Top = 840
Width = 1695
End
End
Begin VB.Label Label45
Alignment = 1 'Right Justify
Caption = "Update:"
Height = 255
Left = 5640
TabIndex = 109
Top = 840
Width = 735
End
Begin VB.Label Label44
Alignment = 1 'Right Justify
Caption = "Maintain:"
Height = 255
Left = 4560
TabIndex = 108
Top = 840
Width = 735
End
Begin VB.Label Label43
Alignment = 1 'Right Justify
Caption = "Delete:"
Height = 255
Left = 6960
TabIndex = 107
Top = 840
Width = 495
End
Begin VB.Label Label42
Alignment = 1 'Right Justify
Caption = "Add:"
Height = 255
Left = 3720
TabIndex = 106
Top = 840
Width = 375
End
Begin VB.Label Label41
Caption = "Type of Revision"
Height = 255
Left = 2280
TabIndex = 102
Top = 840
Width = 1335
End
Begin VB.Label Label40
Alignment = 2 'Center
Caption = """DropDown"" for Programs"
Height = 255
Left = 120
TabIndex = 94
Top = 1200
Width = 2055
End
Begin VB.Label Label6
Caption = "Revision Reason:"
Height = 255
Left = 2280
TabIndex = 57
Top = 1320
Width = 1335
End
Begin VB.Label Label5
Caption = "Revision Date"
Height = 255
Left = 2280
TabIndex = 56
Top = 1080
Width = 1095
End
Begin VB.Label Label4
Caption = "Program"
Height = 255
Left = 120
TabIndex = 54
Top = 840
Width = 1095
End
Begin VB.Label Label3
Caption = "Name"
Height = 255
Left = 2640
TabIndex = 52
Top = 480
Width = 495
End
Begin VB.Label Label2
Caption = "Author Number"
Height = 255
Left = 120
TabIndex = 51
Top = 360
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "JCS Marketing, Inc. Program File Maintenance"
BeginProperty Font
name = "News Gothic MT"
charset = 0
weight = 400
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 50
Top = 0
Width = 7575
End
End
Attribute VB_Name = "apm3"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub cmdDiscard_Click()
frm3.Hide
Call GetProgFile(PData.PProg)
frm3.Show
End Sub
Private Sub cmdDiscardExit_Click()
frm3.Hide
frm1.Show
End Sub
Private Sub cmdFIDFmt_Click()
Dim old_mem As String
Dim new_mem As String
Dim llen As Integer
Dim tlins(150) As String
Dim tlcnt As Integer
old_mem = frm3.apm3PFileidDiz.Text
new_mem = ""
llen = 45
Call ReformatMemo(old_mem, new_mem, llen)
Call BreakOutMemo(new_mem, tlins, tlcnt, llen)
If tlcnt = 0 Then
frm3.apm3PFileidDiz.Text = ""
Else
frm3.apm3PFileidDiz.Text = ""
For i = 1 To tlcnt
If i <> 1 Then
frm3.apm3PFileidDiz.Text = frm3.apm3PFileidDiz.Text + Chr$(13) + Chr$(10)
End If
frm3.apm3PFileidDiz.Text = frm3.apm3PFileidDiz.Text + tlins(i)
Next i
End If
End Sub
Private Sub cmdGetProgram_Click()
frm3.Hide
Call GetProgFile(frm3.apm3Prog)
frm3.Show
End Sub
Private Sub cmdInsFmt_Click()
Dim old_mem As String
Dim new_mem As String
Dim llen As Integer
Dim tlins(150) As String
Dim tlcnt As Integer
old_mem = frm3.apm3PInstall.Text
new_mem = ""
llen = 70
Call ReformatMemo(old_mem, new_mem, llen)
Call BreakOutMemo(new_mem, tlins, tlcnt, llen)
If tlcnt = 0 Then
frm3.apm3PInstall.Text = ""
Else
frm3.apm3PInstall.Text = ""
For i = 1 To tlcnt
If i <> 1 Then
frm3.apm3PInstall.Text = frm3.apm3PInstall.Text + Chr$(13) + Chr$(10)
End If
frm3.apm3PInstall.Text = frm3.apm3PInstall.Text + tlins(i)
Next i
End If
End Sub
Private Sub cmdKWFmt_Click()
Dim old_mem As String
Dim new_mem As String
Dim llen As Integer
Dim tlins(150) As String
Dim tlcnt As Integer
old_mem = frm3.apm3PKeywords.Text
new_mem = ""
llen = 70
Call ReformatMemo(old_mem, new_mem, llen)
Call BreakOutMemo(new_mem, tlins, tlcnt, llen)
If tlcnt = 0 Then
frm3.apm3PKeywords.Text = ""
Else
frm3.apm3PKeywords.Text = ""
For i = 1 To tlcnt
If i <> 1 Then
frm3.apm3PKeywords.Text = frm3.apm3PKeywords.Text + Chr$(13) + Chr$(10)
End If
frm3.apm3PKeywords.Text = frm3.apm3PKeywords.Text + tlins(i)
Next i
End If
End Sub
Private Sub cmdLDFmt_Click()
Dim old_mem As String
Dim new_mem As String
Dim llen As Integer
Dim tlins(150) As String
Dim tlcnt As Integer
old_mem = frm3.apm3PLongDesc.Text
new_mem = ""
llen = 70
Call ReformatMemo(old_mem, new_mem, llen)
Call BreakOutMemo(new_mem, tlins, tlcnt, llen)
If tlcnt = 0 Then
frm3.apm3PLongDesc.Text = ""
Else
frm3.apm3PLongDesc.Text = ""
For i = 1 To tlcnt
If i <> 1 Then
frm3.apm3PLongDesc.Text = frm3.apm3PLongDesc.Text + Chr$(13) + Chr$(10)
End If
frm3.apm3PLongDesc.Text = frm3.apm3PLongDesc.Text + tlins(i)
Next i
End If
End Sub
Private Sub cmdPerFmt_Click()
Dim old_mem As String
Dim new_mem As String
Dim llen As Integer
Dim tlins(150) As String
Dim tlcnt As Integer
old_mem = frm3.apm3PPermiss.Text
new_mem = ""
llen = 70
Call ReformatMemo(old_mem, new_mem, llen)
Call BreakOutMemo(new_mem, tlins, tlcnt, llen)
If tlcnt = 0 Then
frm3.apm3PPermiss.Text = ""
Else
frm3.apm3PPermiss.Text = ""
For i = 1 To tlcnt
If i <> 1 Then
frm3.apm3PPermiss.Text = frm3.apm3PPermiss.Text + Chr$(13) + Chr$(10)
End If
frm3.apm3PPermiss.Text = frm3.apm3PPermiss.Text + tlins(i)
Next i
End If
End Sub
Private Sub cmdProgUpdate_Click()
Call TakeProgScreen
Call SaveProgFile
frm3.Hide
frm1.Show
End Sub
Private Sub Combo1_Change()
End Sub
Private Sub cmdRegFmt_Click()
Dim old_mem As String
Dim new_mem As String
Dim llen As Integer
Dim tlins(150) As String
Dim tlcnt As Integer
old_mem = frm3.apm3PRegistration.Text
new_mem = ""
llen = 70
Call ReformatMemo(old_mem, new_mem, llen)
Call BreakOutMemo(new_mem, tlins, tlcnt, llen)
If tlcnt = 0 Then
frm3.apm3PRegistration.Text = ""
Else
frm3.apm3PRegistration.Text = ""
For i = 1 To tlcnt
If i <> 1 Then
frm3.apm3PRegistration.Text = frm3.apm3PRegistration.Text + Chr$(13) + Chr$(10)
End If
frm3.apm3PRegistration.Text = frm3.apm3PRegistration.Text + tlins(i)
Next i
End If
End Sub
Private Sub cmdVIFmt_Click()
Dim old_mem As String
Dim new_mem As String
Dim llen As Integer
Dim tlins(150) As String
Dim tlcnt As Integer
old_mem = frm3.apm3PVInst.Text
new_mem = ""
llen = 70
Call ReformatMemo(old_mem, new_mem, llen)
Call BreakOutMemo(new_mem, tlins, tlcnt, llen)
If tlcnt = 0 Then
frm3.apm3PVInst.Text = ""
Else
frm3.apm3PVInst.Text = ""
For i = 1 To tlcnt
If i <> 1 Then
frm3.apm3PVInst.Text = frm3.apm3PVInst.Text + Chr$(13) + Chr$(10)
End If
frm3.apm3PVInst.Text = frm3.apm3PVInst.Text + tlins(i)
Next i
End If
End Sub
